Haskell Function returning its input